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SCREEN + 101 
Y WORM 1/0 


: READ-WORM { 7 — } 

TBUF [ "МЕМ" 3 + 3 LITERAL 4 CMOVE 
"ИЯМ" QB SETNAM 

8 8 @ SETLFS 


y Es 
TOBUF DUP LSB {. 
SWAP MSB Zz 
FFDS CALL DUP MSB I 
ELSE DROP THEN DROP 
8 CLOSE DROP ; 5 


A) 
Хх) 
Ж. 
F @ CMDOK ! DISKERR ! 


SCREEN # 103 


( CODE FOR JOY STICKS ) 

CODE (FLKBD) ` (+05) JSR, 

BEGIN, FFES JSR, @= UNTIL, ' (-DS) JSR, 
RTS, END-CODE 


CODE FLKBD XSAVE STX, 
1 (FLKBD) JSR, 
XSAVE LDX, NEXT JMP, END-CODE 
CODE RJSi XSAVE STX; 
SEI, 0 4 LDA, DC02 STA, 
DEGI LDA, iF $ AND, iF 4 EOR, PHA, 
d= NOT IF, ! (FLKBD) JSR, THEN, 
FF # LDA, DC@2 STA, 
CLI, XSAVE LDX, PLA 
PUSHOA JMB, END-CODE 
5 
4 


SCREEN # 105 


JSKEYS ) 
: TAXJS { NUM --) KEY ) 
DUP 19 = IF DROP 1 ELSE 
DUP IF DROP 20 ELSE THEN THEN ; 
: JHEVO RISO TRXJS ; 
: JKEY1 RJS1 TRXJS ; 
: ?JSKEY @ 20 Q DO 
JKEY® DR LOOP ; 
: JSCLR 
BEGIN 2JSKEY @= UNTIL ; 
(5 CODE (208) XSAVE STX, 
' (161) JSR, б= NOT ІР, 
` (FLRBD) JSR, THEN, 
СБ LDA, @= NOT IF, 277 LDA, THEN, 
XSAVE LDX, PUSHOA JMP, END-CODE 


1 


— 


SCREEN # 107 


{ STARTUP CODE ) { BASE 8) HEX 
: WORMS? PAGE 

INSTALLEM RESET-IRG 

ü CSBUILT ! GRIDGLIDERS ; 

1 WORMS? CFA ' QUIT ! 


S 


Lets 800% : 3BCD 8006 ! 30 8008 Ë! 
Ü +081614 8002 ! 


FREEZE { BASE ! ) ;5 


s 


SCREEN # 102 


CODE SEMIT ( CHR — } 

D3 LDY, BOT LDA, Di )Y STA, 
\ 286 LDA, F3 JY STA 

D3 INC, POP JMP, END-CODE 


: TEMIT DUP 40 ( IF 40 + THEN 
ë, 4 - DUP SEMIT 1+ SEMIT ; 
3 
: TNAMED 20 SEMIT CURW 4 Y DO 
DUP „NAME I + ГӘ TEMIT 
LOOP DROP ; 
( BASE ! ) 35 


SCREEN # 104 


( CODE FOR JOY STICKS > 

CODE (181) SEI, @ # LDA, DE@2 STA, 
DCA! LDA, iF $ AND, iF $ CNP, PHA, 
FF $ LDA, ІС02 STA, CLI, PLA, 

TS, END-CODE 


CODE 8750 XSAVE STX, 
SEI, @ # LDA, DERE STA, 

DCO) LDA, iF 4 AND, if # EDR, PHA, 
= МОТ IF, ° (FLKBD) JSR, THEN, 

FF $ LDA, DC@2 STA, 

CLI, XSAVE LDX, BLA 
PUSHDA IMP, END-CODE 


" 


SCREEN # 146 


{ HEARLD ) 
: HEARLD @ 14 XY! ." PRESS F7 WHEN READY " 
0 16 XY! ." 1.0. COPYRIGHT 1983 BY DAVID S MAYNARD" 
Й 17 ХҮҮ." NEW AGE SOFTWARE " 
à 18 Хү!" CRL o"; 


au 
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SCREEN + ias 


N TESTSAVE 

HEX 

FEDS CONSTANT LOAD# 

FEDS CONSTANT SAVER 

DECIMAL 

)GUOTE" FILENAME @0:1.0," 

: SAVER { FROM THRU NAME --) ERROR-CODE ) 
COUNT SETNAM 9 8 8 SETLFS 
>R Spa R} DUP LSB SWAP MSE SAVE CALL DUP 
3ECODE DROP ; 


TESTSAVE 
û +ORIGIN HERE FILENAME SAVER ." SAVER =". ; 


3 


03/01/87 





SCREEN # 1993 


N MT 

SCREEN # 111 
\ СБа DOIRG 
CODE DOIRG 


PHA, TXA, PHA, TYA, PHA, 
1 LDA, PHA, { SAVE МЕМ, CONFIG ) 
E # LDA, 1 STA, { "+05" ) 

1 4 LDA, D013 AND, @= IF 


FFEA JSR, ( BUMP RTCLOCK ) 
FFF JSR, 4 SCAN KEYBOARD ) 
DCOD LDA, € CLEAR PENDING 18016 IN ICRI ) 


ELSE, 1 # LDA, 0019 STA, 
PLA, 1 STA, ( RESTORE МЕМ. CONFIG ) 
PLA, TAY, PLA, TAX, PLA, 

RTI, END-CODE 


58 


SCREEN # 113 
MT 


` 


SCREEN # 115 
\ MT 


1 BUMP JSR, ' VBI JSR, THEN, 


SCREEN # 110 
\ МТ 


SCREEN # 112 
003/01/803/02/87 
: UR Q SHAP D.R ; 


: б. BASE E SPE 50 E SWAP - 2/ i- -DUP 0) 
IF CR." DECIMAL НЕХ" 
i+ 1 DO ER SPE I 2# + 8 DUP DECIMAL 7 .R SPACE НЕХ 
4 UR SPREE 
LOOP 


1 MESSAGE THEN BASE ! CR; 


SCREEN # 114 
MT 


` 


SCREEN # 116 
N MT 


SCREEN # 117 


SCREEN # 119 


( INTERRUPT TESTING CONT ) ( BASE @ ) HEX 
CODE INSTALL-DOIRG 
SEI, ' DOIRO LSB # LDA, 
IRQVEC STA, 
t DOIRG MSB # LDA, 
IRDVEC 1+ STA, 
FB # LDA, 0812 STA, 
\ 7F # LDA, 0011 AND, 0011 STA, 
i # LDA, DOIA DRA, DOLA STA, 
CLI, NEXT JMP, END-CODE 
CODE’ RESET-IRO SEI, 
DIA LDA, PHA, 0 4 LDA, DOLA STA, 
TROVAL LDA, IRGVEC STA, 
TROVAL 1+ LDA, IRGVEC 1+ STA, 
PLA, FE # AND, DER STA, 
CLI, NEXT JMP, END-CODE { BASE ! ) 35 


SCREEN Ж 121 
\ CONT... 23/82/87 
DECIMAL 118 118 HEX THRU DECIMAL 111 111 HEX THRU 
DECIMAL 119 119 HEX THRU DECIMAL 75 76 HEX THRU 
DECIMAL 100 101 HEX THRU 
DECIMAL 77 87 HEX THRU 
DECIMAL 196 186 HEX THRU 
\ HEX HERE U. 8012 HERE - Y MAX АШОТ 
: PAGE iMODE ; 
DECIMAL 88 88 HEX THRU 
\ DECIMAL 97 98 HEX THRU \ SAVE-SYSTEM 
DECIMAL 188 108 THRU \ TESTSAVE 
DECIMAL 112 112 HEX THRU NS. 
: TASK y IS-FENCE FINIS {5 
` FREEZE 4 AS. CART ) 


GRIDGLIDERS CFA * BUIT ' 





SCREEN # 118 


{ INTERRUPT TESTING CODE ) ( BASE 8 ) HEX 
í 0 VARIABLE CLKLD ) 
CODE BUMP CLKLO INC, @= IF, 
CLKLO i+ INC, THEN, 
RTS, END-CODE 
CODE FBUMP ' BUMP JSR, 
NEXT JMP, END-CODE 
EFFE CONSTANT IRDVEC 
EFFË VARIABLE IRDVAL {5 
CODE DOIRG PHA, TXA, PH TYA, PHA, 1 LDA, PHA, 
E $ LDA, ‚ € +5) 
i 4 LDA, 0019 AND, а= IF, 
ELSE, 1 $ LDA, 0019 STA, ' BUMP JSR, * VBI JSR, 
DCOD LDA, PLA, 1 STA, PLA, TAY, PLA, TAX, PLA, RTI, THEN, 
PER, STA, Pla, TAYS PLA, TAX, PLA IRBUAL ) JAP, END-CODE 
: 35 


( MEMCONFIG ) 


SCREEN # 124 


( LOAD SCREEN ) X FORTH 1 DISP ! @ DISP 2+ C! DISPLAY 
DECIMAL CROSS-COMPILE 

DECIMAL 103 105 REX THRU 

DECIMAL 150 150 HEX THRU 

DECIMAL Bi 14 HEX THRU 

DECIMAL 93 93 HEX THRU 

DECIMAL 89 92 HEX THRU 

DECIMAL 138 140 HEX THRU 

DECIMAL 15 18 HEX THRU 

DECIMAL 102 102 HEX THRU 

DECIMAL 160 167 HEX THRU 

DECIMAL 185 147 HEX THRU 

DECIMAL 19 64 HEX Т DECIMAL 143 143 HEX THRU 


DECIMAL 65 
- û MAX АШОТ 


ж 
--4 
ра ml 


70 HE 
\ HERE U. AS. CART HEX 8012 HERE 
DECIMAL 71 74 HEX THRU -- 


SCREEN # 122 


LORD SCREEN ) AS.CART LOCATE-ON FORTH 1 DISP ! DISPLAY 
FIND SEVEN# IFSO 100 FENCE ! FORGET SEVEN® FREEZE 
DECIMAL 1@3 185 HEX THRU 
DECIMAL 150 150 HEX THRU 
DECIMAL Bi 14 HEX THRU 
ECIMAL 93 93 HEX THRU 
DECIMAL 89 92 HEX THRU 
DECIMAL 138 148 HEX THRU 
DECIMAL 15 18 HEX THRU 
DECIMAL 102 102 HEX THRU 
DECIMAL 160 167 HEX THRU 
DECIMAL 145 147 HEX THRU 
{ DECIMAL 19 64 HEX THRU ) DECIMAL 143 143 HEX THRU 
DECIMAL 66 70 HEX THRU 
HERE U. AS.LART HEX 8012 HERE - @ MAX ALLDT 
DECIMAL 71 74 HEX THRU —— 


tt en 
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